tisk formu na winXP

Otázka od: Karel Plechacek

13. 4. 2004 21:13

zdravim,

mam problem s tiskem formulare na windows XP. pouzivam metodu Tform.Print.
problem je v tom ze kdyz zavolam tuto metodu pro formular tak se poprve
formular vytiskne spravne, ale podruhe uz ne. musim program restartovat a pak
muzu zase tisknout. tento problem se vyskytuje jen na WinXP, na 98 a Win2000
vse funguje korektne. pouzivam delphi 5 enterprise (co jsem se dival tak v
delphi5 a delphi7 je telo metody Tform.Print stejne)

mohli byste mi prosim treba poradit jak mam tisknout z delphi jinak nez vise
zminenou metodou? treba jak vytisknout komponentu TImage, nebo nejakou bitmapu -
to by mi taky pomohlo.

diky

Karel

procedure Tmain_f.TiskPrehledu;
var FormImage : TBitmap;
    form : THistogramPrint_f;
    lCanvas : TCanvas;
begin
  Application.CreateForm( THistogramPrint_f, form );

  FormImage := GetFormImage;
  lCanvas := form.PrintCanvas;

  lCanvas.Draw( 2, 2, FormImage );
  form.ShowModal; // tady uz pak zavolam jen self.Print. na tomto formu
je komponenta TImage

  form.Free;
  FormImage.Free;
end;